Public Class Feedbackdetails
    Inherits System.Web.UI.Page
    Public nStart, nInterval, nLoc As Integer
    Public GAPORTALID, CompanyID, URL, company, EmailAddress As String
    Public BrowserOS, ReferringURL, MessageText, DescriptionText As String
    Public EntryDate As Date
    Dim oFdbdetail As gaFeedBack.FeedBackAdmin
#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not IsPostBack Then
            '-----	grabbing passed-in vars
            If Not IsNothing(Request.QueryString("nStart")) Then
                nStart = CInt(Request.QueryString("nStart"))
            ElseIf Not IsNothing(Request.Form("nStart")) Then
                nStart = CInt(Request.Form("nStart"))
            End If
            If Not IsNothing(Request.QueryString("nInterval ")) Then
                nInterval = CInt(Request.QueryString("nInterval "))
            ElseIf Not IsNothing(Request.Form("nInterval ")) Then
                nInterval = CInt(Request.Form("nInterval "))
            End If
        Else
        End If
        nLoc = CInt(Request.QueryString("loc"))
    End Sub
    Public Function Getdetailcont() As String
        Dim nCursor As Integer
        Dim strHtml As String = ""
        oFdbdetail = New gaFeedBack.FeedBackAdmin
        oFdbdetail.DBConnectstring = Application("DSN")
        Dim rst As New DataSet
        rst = oFdbdetail.GetDetailConts()

        If rst.Tables(0).Rows.Count > 0 Then
            If nCursor <> nLoc Then
                nCursor = 1 + rst.Tables(0).Rows.Count

                'Do While Not rst.eof And nCursor <> nLoc
                '    nCursor = nCursor + 1
                '    rst.movenext()
                'Loop
            End If
            GAPORTALID = rst.Tables(0).Rows(0).Item("GAPORTAL_ID")
            CompanyID = rst.Tables(0).Rows(0).Item("Company_ID")
            company = rst.Tables(0).Rows(0).Item("Company")
            EntryDate = rst.Tables(0).Rows(0).Item("EntryDate")
            URL = rst.Tables(0).Rows(0).Item("URL")
            EmailAddress = rst.Tables(0).Rows(0).Item("EmailAddress")
            DescriptionText = rst.Tables(0).Rows(0).Item("DescriptionText")
            MessageText = rst.Tables(0).Rows(0).Item("MessageText")
            If Len(MessageText) > 0 And Not IsNothing(MessageText) Then
                MessageText = Replace(MessageText, vbCrLf, "<br>")
            End If
            BrowserOS = rst.Tables(0).Rows(0).Item("BrowserOS")
            ReferringURL = rst.Tables(0).Rows(0).Item("ReferringURL")
            strHtml += "<p><table cellspacing='0' cellpadding='1' border='0'><tr>"
            strHtml += "<td valign='top'><font face='verdana,arial, helvetica' size='2'>Entry Date:</font></td>"
            strHtml += "<td valign='top'><font face='verdana,arial, helvetica' size='2'>" & FormatDateTime(EntryDate, vbShortDate) & "</font></td></tr><tr>"

            strHtml += "<td valign='top'><font face='verdana,arial, helvetica' size='2'>Type:</font></td>"
            strHtml += "<td valign='top'><font face='verdana,arial, helvetica' size='2'>" & DescriptionText & "</font></td></tr><tr>"

            strHtml += "<td valign='top'><font face='verdana,arial, helvetica' size='2'>Reported By:</font></td>"
            strHtml += "<td valign='top'><font face='verdana,arial, helvetica' size='2'>" & GAPORTALID & " " & company & "</font></td></tr><tr>"

            strHtml += "<td valign='top'><font face='verdana,arial, helvetica' size='2'>Email Address:</font></td>"
            strHtml += "<td valign='top'><font face='verdana,arial, helvetica' size='2'>" & EmailAddress & "</font></td></tr><tr>"

            strHtml += " <td valign='top'><font face='verdana,arial, helvetica' size='2'>URL:</font></td>"
            strHtml += "<td valign='top'><font face='verdana,arial, helvetica' size='2'>" & URL & "</font></td></tr><tr>"

            strHtml += "<td valign='top'><font face='verdana,arial, helvetica' size='2'>Message Text:</font></td>"
            strHtml += " <td valign='top'><font face='verdana,arial, helvetica' size='2'>" & MessageText & "</font></td></tr><tr>"

            strHtml += "<td valign='top'><font face='verdana,arial, helvetica' size='2'>Browser/OS:</font></td>"
            strHtml += "<td valign='top'><font face='verdana,arial, helvetica' size='2'>" & BrowserOS & "</font></td></tr>"

        End If

        strHtml += "</table></p>"
        'Response.Write(strHtml)
        Return strHtml
    End Function
End Class
